home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / Congress.cpt / Congress / background_2714.txt < prev    next >
Text File  |  1989-01-12  |  6KB  |  269 lines
  1. -- background: 2714 from stack: in
  2. -- bmap block id: 3173
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: CARDNO
  6. ----- HyperTalk script -----
  7.  
  8. on openCard
  9.   put "Card" && number of this card && "of" && number of cards into field 3
  10.   set scroll of field "congressmen" to 0
  11.   pass openCard
  12. end openCard
  13.  
  14.  
  15.  
  16.  
  17. -- part 1 (field)
  18. -- low flags: 00
  19. -- high flags: 0001
  20. -- rect: left=114 top=10 right=41 bottom=390
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 20
  25. -- text size: 24
  26. -- style flags: 256
  27. -- line height: 32
  28. -- part name: State
  29.  
  30.  
  31. -- part 2 (field)
  32. -- low flags: 00
  33. -- high flags: 2002
  34. -- rect: left=114 top=67 right=111 bottom=390
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 3
  39. -- text size: 14
  40. -- style flags: 256
  41. -- line height: 18
  42. -- part name: Senators
  43.  
  44.  
  45. -- part 3 (button)
  46. -- low flags: 00
  47. -- high flags: 0000
  48. -- rect: left=220 top=322 right=340 bottom=240
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 15420 / 15420
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: New Button
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   go prev card of this bg
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 4 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=241 top=322 right=340 bottom=261
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 16560 / 16560
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   go next card of this bg
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 5 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=291 top=322 right=340 bottom=312
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 6720 / 6720
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: 
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   pop card
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 6 (field)
  103. -- low flags: 00
  104. -- high flags: 0002
  105. -- rect: left=2 top=327 right=342 bottom=103
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 9
  111. -- style flags: 256
  112. -- line height: 12
  113. -- part name: 
  114.  
  115.  
  116. -- part 8 (button)
  117. -- low flags: 00
  118. -- high flags: 0000
  119. -- rect: left=189 top=322 right=340 bottom=214
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 24317 / 24317
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: New Button
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   go first card of this bg
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 9 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=264 top=322 right=340 bottom=288
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 29903 / 29903
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: New Button
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   go Last card of this bg
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 10 (button)
  155. -- low flags: 80
  156. -- high flags: A003
  157. -- rect: left=393 top=318 right=340 bottom=449
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Import
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   ask "Name of file to import"
  169.   if it is empty then exit mouseup
  170.   put "HD40SC:" &it into fileName
  171.   open file fileName
  172.   repeat
  173.     read from file fileName until "@"
  174.     if it is empty
  175.     then
  176.     doMenu "delete card"
  177.     close file fileName
  178.     exit mouseUp
  179.   end if
  180.   Delete last char of it
  181.   put it into field "State"
  182.   read from file fileName until "#"
  183.   Delete last char of it
  184.   put it into field "Senators"
  185.   read from file fileName until "^"
  186.   Delete last char of it
  187.   put it into field "Congressmen"
  188.   doMenu "New Card"
  189. end repeat
  190. close file fileName
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 12 (button)
  196. -- low flags: 00
  197. -- high flags: 8004
  198. -- rect: left=425 top=324 right=342 bottom=503
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Select
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   set cursor to watch
  210.   put empty into SearchKey
  211.   go second
  212.   put card field "KTOC" into theList
  213.   DoList "Select","Cancel",theList,One
  214.   put item 2 of the result into SearchKey
  215.   if number of words in searchKey = 0 then exit MouseUp
  216.   if number of words in searchKey = 1
  217.   then
  218.   put "Find" &"e &searchKey "e into msg
  219.   Send ReturnKey
  220.   send ReturnKey
  221. end if
  222. if number of words in SearchKey >= 2
  223. then
  224. put "Find whole" &"e &searchKey "e into msg
  225. send returnKey
  226. send ReturnKey
  227. end If
  228. hide msg
  229. end mouseUp
  230.  
  231.  
  232.  
  233.  
  234. -- part 13 (field)
  235. -- low flags: 00
  236. -- high flags: 2007
  237. -- rect: left=114 top=112 right=308 bottom=389
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 0
  241. -- font id: 3
  242. -- text size: 12
  243. -- style flags: 256
  244. -- line height: 16
  245. -- part name: Congressmen
  246.  
  247.  
  248. -- part 15 (button)
  249. -- low flags: 80
  250. -- high flags: A003
  251. -- rect: left=452 top=316 right=338 bottom=508
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Cleanup
  260. ----- HyperTalk script -----
  261. --on mouseUp
  262. go first
  263. repeat with c = 1 to number of cards
  264.   go card c
  265.   delete line 1 of field "congressmen"
  266. end repeat
  267. --end mouseUp
  268.  
  269.